home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / LongInteger.p < prev    next >
Text File  |  2004-01-31  |  4KB  |  93 lines
  1. pTempVar <- <primitive 110 15 >
  2. <primitive 112 pTempVar 1  " remainderIs " \
  3.   #( #[ 16r11 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " quotientIs " \
  7.   #( #[ 16r10 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " unsigned64BitMultiply:times: " \
  11.   #( #[ 16r53 16r05 16r18 16r21 16r22 16rFA 16r04 16rD1 16r73 16r53 16r30 \
  12.         16r23 16rFA 16r03 16rD1 16r60 16r53 16r31 16r23 16rFA 16r03 \
  13.         16rD1 16r61 16r23 16rF3 16rF5] \
  14.     #( 39 38  )) >
  15.  
  16. <primitive 112 pTempVar 4  " signed64BitMultiply:times: " \
  17.   #( #[ 16r53 16r05 16r17 16r21 16r22 16rFA 16r04 16rD1 16r73 16r53 16r30 \
  18.         16r23 16rFA 16r03 16rD1 16r60 16r53 16r31 16r23 16rFA 16r03 \
  19.         16rD1 16r61 16r23 16rF3 16rF5] \
  20.     #( 39 38  )) >
  21.  
  22. <primitive 112 pTempVar 5  " unsigned32BitDivide:by: " \
  23.   #( #[ 16r53 16r05 16r16 16r21 16r22 16rFA 16r04 16rD1 16r73 16r53 16r30 \
  24.         16r23 16rFA 16r03 16rD1 16r60 16r53 16r31 16r23 16rFA 16r03 \
  25.         16rD1 16r61 16r23 16rF3 16rF5] \
  26.     #( 39 38  )) >
  27.  
  28. <primitive 112 pTempVar 6  " signed32BitDivide:by: " \
  29.   #( #[ 16r53 16r05 16r15 16r21 16r22 16rFA 16r04 16rD1 16r73 16r53 16r30 \
  30.         16r23 16rFA 16r03 16rD1 16r60 16r53 16r31 16r23 16rFA 16r03 \
  31.         16rD1 16r61 16r23 16rF3 16rF5] \
  32.     #( 39 38  )) >
  33.  
  34. <primitive 112 pTempVar 7  " getUpper32Bits " \
  35.   #( #[ 16r10 16rF3 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 8  " getLower32Bits " \
  39.   #( #[ 16r11 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 9  " odd " \
  43.   #( #[ 16r20 16r20 16r52 16r82 16r00 16r71 16r21 16r50 16rCA 16rF3 16rF5 \
  44.        ] \
  45.     #( #signed32BitDivide:by:  )) >
  46.  
  47. <primitive 112 pTempVar 10  " even " \
  48.   #( #[ 16r20 16r20 16r52 16r82 16r00 16r71 16r21 16r50 16rC9 16rF3 16rF5 \
  49.        ] \
  50.     #( #signed32BitDivide:by:  )) >
  51.  
  52. <primitive 112 pTempVar 11  " asFloat " \
  53.   #( #[ 16r20 16r80 16r00 16rFA 16r01 16r27 16r71 16r20 16r80 16r01 16rFA \
  54.         16r01 16r27 16r72 16r21 16r22 16rC0 16rF3 16rF5] \
  55.     #( #getUpper32Bits #getLower32Bits  )) >
  56.  
  57. <primitive 112 pTempVar 12  " asString " \
  58.   #( #[ 16r20 16r80 16r00 16rFA 16r01 16r25 16r71 16r21 16r20 16r80 16r01 \
  59.         16rFA 16r01 16r25 16r0B 16r12 16rF3 16rF5] \
  60.     #( #getUpper32Bits #getLower32Bits  )) >
  61.  
  62. <primitive 112 pTempVar 13  " < " \
  63.   #( #[ 16r21 16r40 16r81 16r01 16rF6 16r02 16r5C 16rF3 16rF2 16r20 16r80 \
  64.         16r02 16r21 16r80 16r02 16rFA 16r02 16r0C 16r72 16r22 16r5B \
  65.         16rCA 16rF7 16r04 16r5C 16rF3 16rF8 16r0B 16rF2 16r20 16r80 \
  66.         16r03 16r21 16r80 16r03 16rFA 16r02 16r0C 16rF3 16rF2 16rF5 \
  67.        ] \
  68.     #( #LongInteger #isMemberOf: #getLower32Bits #getUpper32Bits  )) >
  69.  
  70. <primitive 112 pTempVar 14  " > " \
  71.   #( #[ 16r21 16r40 16r81 16r01 16rF6 16r02 16r5C 16rF3 16rF2 16r20 16r80 \
  72.         16r02 16r21 16r80 16r02 16rFA 16r02 16r0D 16r72 16r22 16r5B \
  73.         16rCA 16rF7 16r04 16r5C 16rF3 16rF8 16r0B 16rF2 16r20 16r80 \
  74.         16r03 16r21 16r80 16r03 16rFA 16r02 16r0D 16rF3 16rF2 16rF5 \
  75.        ] \
  76.     #( #LongInteger #isMemberOf: #getLower32Bits #getUpper32Bits  )) >
  77.  
  78. <primitive 112 pTempVar 15  " = " \
  79.   #( #[ 16r21 16r40 16r81 16r01 16rF6 16r02 16r5C 16rF3 16rF2 16r20 16r80 \
  80.         16r02 16r21 16r80 16r02 16rFA 16r02 16r10 16r72 16r22 16r5B \
  81.         16rCA 16rF7 16r02 16r5C 16rF3 16rF2 16r20 16r80 16r03 16r21 \
  82.         16r80 16r03 16rFA 16r02 16r10 16rF3 16rF5] \
  83.     #( #LongInteger #isMemberOf: #getLower32Bits #getUpper32Bits  )) >
  84.  
  85. <primitive 98 #LongInteger \
  86.   <primitive 97 #LongInteger #Number #AmigaTalk:General/LongInteger.st \
  87.    #(  #upper32Bits #lower32Bits ) \
  88.    #( #remainderIs #quotientIs #unsigned64BitMultiply:times:  \
  89.        #signed64BitMultiply:times: #unsigned32BitDivide:by: #signed32BitDivide:by: #getUpper32Bits  \
  90.        #getLower32Bits #odd #even #asFloat #asString #< #> #=  ) \
  91.   pTempVar 4 7 > #ordinary >
  92.  
  93.